home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / LISTDIAL < prev    next >
Text File  |  2001-03-02  |  1KB  |  30 lines
  1. 10    ! ********************************************************
  2. 20    ! Example: LIST Dialog
  3. 30    !
  4. 40    ! This program shows a way to use the MULTISELECT attribute.
  5. 50    ! For example, if you click on COSMOPOLITAN, TIME, and SPORTS
  6. 60    ! ILLUSTRATED, then click on OK the program displays
  7. 70    ! OK 1 0 0 1 0 1 0. The '1's correspond to the selected items.
  8. 80    !
  9. 90    ! ********************************************************
  10. 100   !
  11. 110  CLEAR SCREEN
  12. 120  INTEGER Btn,Sel(1:7),V(1:2)
  13. 130  DIM L$(1:7)[20],P$[40],A$(1:2)[16],S$[16]
  14. 140  DATA "COSMOPOLITAN","ENQUIRER","DISCOVER","TIME"
  15. 150  DATA "HEALTH","SPORTS ILLUSTRATED","NEW YORKER"
  16. 160  READ L$(*)
  17. 170      !
  18. 180  DATA "MULTISELECT","COLUMNS",1,30, "SELECTION"
  19. 190  READ A$(*),V(*),S$
  20. 200  P$="Which magazines do you read?"
  21. 210  DIALOG "LIST",P$,Btn;SET ("TITLE":" Example: LIST Dialog","ITEMS":L$(*),A$(*):V(*)),RETURN (S$:Sel(*))
  22. 220  PRINT " Button      Selection"
  23. 230  PRINT
  24. 240  IF Btn=0 THEN
  25. 250      PRINT USING "8A,3X,7(D,X)";" OK",Sel(*)
  26. 260  ELSE
  27. 270      PRINT USING "8A,3X,7(D,X)";"Cancel",Sel(*)
  28. 280  END IF
  29. 290  END
  30.